home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / gear / cdplayer / cdplayer.exe / UGOKU2.TXT < prev    next >
Text File  |  1992-11-18  |  469b  |  23 lines
  1.     MOUSE 4,0,0,639,479
  2.     ON ERROR GOTO *F
  3.     DIM A%(8)
  4.     DIM D(430)
  5.     D=10 
  6.     E=420
  7.     CD PLAY 1
  8. *A  FOR D=20 TO 430 STEP 10
  9.     CDSTAT A%
  10.     IF MOUSE(2,1) = -1 GOTO *B
  11.     IF M%(1)=4 GOTO *B
  12.     DSP ON "テキスト26",(D,400)
  13.     IF MOUSE(2,1) = -1 GOTO *B
  14.     NEXT D
  15. *C  FOR E=430 TO 20 STEP -10
  16.     IF MOUSE(2,1) = -1 GOTO *B
  17.     DSP ON "テキスト26",(E,400)
  18.     IF MOUSE(2,1) = -1 GOTO *B
  19.     NEXT E
  20.     GOTO *A
  21. *B  END
  22. *F  RESUME *B
  23.